home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 3 #9
/
Commodore_Disk_User_Vol.3_9_1990_-.d64
/
g.factory demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
52 lines
10 sq$="[146][144]"
15 :
20 dimf1$(17),ff$(23),cu(38)
25 print"[147]":forz=1to39:z$=z$+" ":next:z$="[156]"+z$:poke53280,4:poke53281,15
30 gosub145:tt$="[144] [158] ":rr$="[157] [157][158] [157][144] ":bb$=" [158] [144] "
35 ll$="[145][157] [145][157][158] [145][157][144] ":fortb=1to12:t1$=t1$+tt$:b1$=b1$+bb$:next:forrl=1to7
40 r1$=r1$+rr$:l1$=l1$+ll$:next:t2$=right$(t1$,70)+left$(t1$,2)
45 t3$=right$(t2$,70)+left$(t2$,2):r2$=right$(r1$,4)+left$(r1$,80)
50 r3$=right$(r2$,4)+left$(r2$,80):b2$=right$(b1$,2)+left$(b1$,70)
55 b3$=right$(b2$,2)+left$(b2$,70):l2$=right$(l1$,4)+left$(l1$,80)
60 l3$=right$(l2$,4)+left$(l2$,80)
65 forf1=1to17:readf1$(f1):next:f1=1
70 gosub160:gosub145:gosub170
75 iff1<>1thenfordd=1to10:gosub130:next:gosub175:goto100
80 printsq$spc(6)" hit any key to continue... [145]"
85 getgt$:ifgt$=""then85
90 gt$="":goto105
95 gosub160:gosub145:gosub170:iff1>2thengosub175
100 getgt$:ifgt$=""then100
105 ifgt$<>""thenifgt$<>"[145]"then100
110 ifgt$=""thenf1=f1+1:iff1>17thenf1=1:gt$=""
115 ifgt$="[145]"thenf1=f1-1:iff1<1thenf1=1
120 onf1goto70,95,95,95,95,95,70,95,95,70,95,95,95,70,95,95,95
125 end
130 print""t1$""r1$"[157]"b1$l1$
135 print""t2$""r2$"[157]"b2$l2$
140 print""t3$""r3$"[157]"b3$l3$:return
145 print"";:zz=0:forz=1to24:printz$:zz=zz+40
150 poke1023+zz,160:poke55295+zz,4:next:printz$"[145]":poke2023,160:poke56295,4
155 return
160 open8,8,8,"0:"+f1$(f1)+",s,r":forff=1to23:input#8,f2$:input#8,f3$
165 ff$=f2$+f3$:ff$(ff)=ff$:next:close8:return
170 print"";:forff=1to23:print""ff$(ff):next:return
175 printsq$"use crsr up/down to go back & forth[145]":return
500 data cr/demo intro
505 data cr/text screen 2
510 data cr/text screen 3
515 data cr/text screen 4
520 data cr/text screen 5
525 data cr/text screen 6
530 data cr/prompt 3a
535 data cr/mod4 gfi
540 data cr/gf opt menu
545 data cr/prompt 4a
550 data cr/7 stud 2
555 data cr/casino craps
560 data cr/hustlers bluf
565 data cr/prompt 5a
570 data cr/magic pyramid
575 data cr/3d demo 2
580 data cr/tangled tubes